(Fexecute_extended_command): gcpro prefixarg.

diff --git a/src/keyboard.c b/src/keyboard.c
index 9c854a046cc93ad8e96636887e36394718dd07cb..a1d0c5514b22e7e82c978237b1659888dc0b087e 100644 (file)
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -6898,12 +6898,12 @@ DEFUN ("execute-extended-command", Fexecute_extended_command, Sexecute_extended_
   Lisp_Object function;
   char buf[40];
   Lisp_Object saved_keys;
-  struct gcpro gcpro1;
+  struct gcpro gcpro1, gcpro2;
 
   saved_keys = Fvector (this_command_key_count,
                        XVECTOR (this_command_keys)->contents);
   buf[0] = 0;
-  GCPRO1 (saved_keys);
+  GCPRO1 (saved_keys, prefixarg);
 
   if (EQ (prefixarg, Qminus))
     strcpy (buf, "- ");